In BriceonWiley/IntegratedLikelihood.R:

knitr::opts_chunk$set(
  echo = FALSE,
  cache = FALSE,
  fig.align = "center",
  # fig.height = 2.5,
  out.width="90%",
  comment = "#"
)
library(tidyverse); theme_set(theme_minimal())
library(magrittr)
library(kableExtra)
library(fs)


k <- readRDS(here::here("simulation results", "results_p_adj", "k.rds"))
k_050 <- readRDS(here::here("simulation results", "results_p_adj", "k_050.rds"))

Results for $\phi=\theta=0.10$

kable(k[[1]], "markdown")

kable(k[[2]], "markdown", 3)

\newpage

Results for $\phi=\theta=0.50$

kable(k_050[[1]], "markdown")

kable(k_050[[2]], "markdown", 3)

BriceonWiley/IntegratedLikelihood.R documentation built on Aug. 21, 2020, 11 p.m.